home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Cursor.cpt / Cursor Install / background_2675.txt < prev    next >
Text File  |  1990-07-24  |  856b  |  39 lines
  1. -- background: 2675 from stack: in
  2. -- bmap block id: 3225
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: bg id 8957
  6. ----- HyperTalk script -----
  7. on softLink
  8.   global hgt
  9.   global theRect
  10.   global theScroll
  11.   global Reflist
  12.   global RefSelect
  13.   put item 2 of the clickLoc  into Ver
  14.   subtract item 2 of theRect from Ver
  15.   put (Ver div hgt) into lineNum
  16.   -- get style of target
  17.   -- if it is "scrolling" then
  18.   add (theScroll div hgt) + 1 to lineNum
  19.   -- end if
  20.   get line lineNum of cd fld "cardIDs"
  21.   push cd
  22.   go it
  23. end softLink
  24. on setRects
  25.   global RefSelect
  26.   global theRect
  27.   global hgt
  28.   global butRect
  29.   put false into RefSelect
  30.   get rect of cd fld "whichOnes"
  31.   put it into theRect
  32.   put it into butRect
  33.   subtract 16 from item 3 of butRect
  34.   set rect of cd btn dildo to 0,0,0,0
  35.   get textHeight of cd fld "whichOnes"
  36.   put it into hgt
  37. end setRects
  38.  
  39.